
Concepto

Mapa de riesgo 
Riesgo Muy Alto de Transmisión. Hotposts de casos + hotspots del vector.
Riesgo Alto de Transmisión. Hotspots de transmisión.
Riesgo Medio de Transmisión. Hotspots del vector.
Riesgo Bajo de Transmisión. Sin hotspots de transmisión o hotspots del vector.

# Step 1. load the AGEE ####
mex <- rgeomex::AGEE_inegi19_mx
# Step 3. make the tible link ####
link <- tibble::tibble(CVE_ENT = c("02", "03", "10", "11",
"04","06","07","12",
"14","16","17","18",
"20","23","24","25",
"26",
"27","28","30","31"),
link = c("https://dazzling-taffy-ac0fd2.netlify.app",
"https://fascinating-youtiao-a1f6f7.netlify.app",
"https://preeminent-nougat-6307ee.netlify.app",
"https://sparkly-concha-17d36d.netlify.app",
"https://phenomenal-hotteok-02e188.netlify.app/",
"https://silver-moxie-30857b.netlify.app",
"https://adorable-tiramisu-303de1.netlify.app",
"https://astounding-squirrel-94dd18.netlify.app/",
"https://heartfelt-fudge-936865.netlify.app/",
"https://fabulous-mermaid-31ea6a.netlify.app/",
"https://glistening-griffin-b8023f.netlify.app/",
"https://idyllic-granita-6918af.netlify.app/",
"https://merry-figolla-08f5bf.netlify.app/",
"https://helpful-pegasus-ba8bb9.netlify.app/",
"https://wonderful-belekoy-db9c08.netlify.app/",
"https://cosmic-dusk-10e889.netlify.app",
"https://soft-donut-e34403.netlify.app",
"https://capable-torrone-6eae7f.netlify.app/",
"https://zingy-tarsier-e2570c.netlify.app/",
"https://zippy-bunny-bdd8c7.netlify.app/",
"https://keen-dango-d1cd7e.netlify.app/"))
# Step 3. left joint ####
mex_link <- dplyr::left_join(x = link,
y = mex,
by = "CVE_ENT") |>
dplyr::mutate(Estado = paste0(": <a href=",
link,">",
NOMGEO, "</a>")) |>
as.data.frame() |>
sf::st_set_geometry(value = "geometry")
mex_link |>
mapview::mapview(popup = "Estado",
legend = FALSE)